home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlTabDeleteAllItems.au3 < prev    next >
Text File  |  2006-06-17  |  2KB  |  56 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiTab.au3>
  3.  
  4.  
  5. opt('MustDeclareVars', 1)
  6.  
  7. Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK, $tab3, $tab4, $button, $msg
  8. GUICreate("Tab Delete All Items", 300, 200)  ; will create a dialog box that when displayed is centered
  9.  
  10. GUISetBkColor(0x00E0FFFF)
  11. GUISetFont(9, 300)
  12.  
  13. $tab = GUICtrlCreateTab(10, 10, 200, 100, $TCS_MULTILINE)
  14.  
  15. $tab0 = GUICtrlCreateTabItem("tab0")
  16. GUICtrlCreateLabel("label0", 30, 80, 50, 20)
  17. $tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
  18. $tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
  19. GUICtrlCreateTabItem("") ; end tabitem definition
  20.  
  21. $tab1 = GUICtrlCreateTabItem("tab----1")
  22. GUICtrlCreateLabel("label1", 30, 80, 50, 20)
  23. $tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
  24. GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
  25. $tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
  26. GUICtrlCreateTabItem("") ; end tabitem definition
  27.  
  28. $tab2 = GUICtrlCreateTabItem("tab2")
  29. GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
  30. GUICtrlCreateLabel("label2", 30, 80, 50, 20)
  31. $tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
  32. GUICtrlCreateTabItem("") ; end tabitem definition
  33.  
  34. $tab3 = GUICtrlCreateTabItem("tab3")
  35. GUICtrlCreateTabItem("") ; end tabitem definition
  36.  
  37. $tab4 = GUICtrlCreateTabItem("tab4")
  38. GUICtrlCreateTabItem("") ; end tabitem definition
  39.  
  40. GUICtrlCreateLabel("label3", 20, 130, 50, 20)
  41. $button = GUICtrlCreateButton("Delete All", 200, 130, 90, 30)
  42.  
  43. GUISetState()
  44.  
  45. ; Run the GUI until the dialog is closed
  46. While 1
  47.     $msg = GUIGetMsg()
  48.     Select
  49.         Case $msg = $GUI_EVENT_CLOSE
  50.             ExitLoop
  51.         Case $msg = $button
  52.             _GUICtrlTabDeleteAllItems ($tab)
  53.     EndSelect
  54. WEnd
  55.  
  56.